copy paste & transpose from one workbook to other without replacing existing data

yprasto 

Try this version:

Sub Test()
    Dim filter As String, caption As String
    Dim customerFilename As String
    Dim customerWorkbook As Workbook
    Dim targetSheet As Worksheet, sourceSheet As Worksheet
    Dim NextRow As Long

    filter = "Excel and CSV Files (*.xls;*.xlsx;*.csv),*.xls;*.xlsx;*.csv"
    caption = "Please Select an input file "
    customerFilename = Application.GetOpenFilename(filter, , caption)
    If customerFilename = "False" Then
        Beep
        Exit Sub
    End If

    Application.ScreenUpdating = False

    Set customerWorkbook = Application.Workbooks.Open(customerFilename)
    Set sourceSheet = customerWorkbook.Worksheets("1210000")
    Set targetSheet = ActiveWorkbook.Worksheets("PK")
    NextRow = targetSheet.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
    sourceSheet.Range("B4:C257").Copy
    targetSheet.Range("C" & NextRow).PasteSpecial Transpose:=True
    customerWorkbook.Close SaveChanges:=False

    Application.ScreenUpdating = True
End Sub