안녕하세요?

2개 셀을 유사한 문의를 드린 적 있는데 공부를 해봐도 해결이 안되어 작업파일을 첨부하여 다시 질문 올리니 고수님들 도움 부탁드립니다

1. 2개 표를 따로 실행해서 합치기는 되는데 코드를 통합해 한번에 합치고 싶습니다(리스트박스를 이용하지 않고 단순히 합치기)
2. 합칠 때 특정셀만 수식복사, 나머지는 값복사하고ㅓ 싶습니다 .(주황색 단가,금액있는 N,O열)
3. 합친 표 제일 밑에 소계를 입력(11열)해 합쳐진 표의 전체 합계를 내고 싶습니다
4. 
5. 
6. 

 

각각 실행하는 코드는 아래와 같습니다

Sub 양산합산()

Dim sh1, sh2 As Worksheet
Dim i, j As Long

Application.ScreenUpdating = False

Set sh1 = Worksheets("양산택배")
Set sh2 = Worksheets("택배합산")

i = sh1.Range("B1").Value
j = sh2.Cells(Rows.Count, "a").End(xlUp).Row + 1

sh1.Cells(5, 3).Resize(i, 15).Copy

sh2.Activate
Cells(j, 1).Select
Selection.PasteSpecial xlPasteValues

Cells(j, 1).Select

Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

===========================

Sub 샘플합산()

Dim sh1, sh2 As Worksheet
Dim i, j As Long

Application.ScreenUpdating = False

Set sh1 = Worksheets("샘플택배")
Set sh2 = Worksheets("택배합산")

i = sh1.Range("B1").Value
j = sh2.Cells(Rows.Count, "a").End(xlUp).Row + 1

sh1.Cells(5, 3).Resize(i, 15).Copy

sh2.Activate
Cells(j, 1).Select
Selection.PasteSpecial xlPasteValues

Cells(j, 1).Select
Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

Sub 양산합산()

Dim sh1, sh2 As Worksheet
Dim i, j As Long

이하생략~~

call 샘플합산
End Sub

===========================

Sub 샘플합산()

Dim sh1, sh2 As Worksheet
Dim i, j As Long

이하생략 ~~

End Sub