Sub копиясосновного()
    'Sheets("ПЕРВЫЙ").Select
    Dim otkuda As Range, kuda As Range
    Sheets("ВТОРОЙ").Range("A2:G30").ClearContents
    With Sheets("ПЕРВЫЙ")
        ps = .Range("d" & .Rows.Count).End(xlUp).Row
        For i = 1 To 7
            If .Cells(1, i) <> "" Then
                Set otkuda = .Range(.Cells(2, i), .Cells(ps, i)).SpecialCells(xlVisible)
                Set kuda = Sheets("ВТОРОЙ").Cells(3, i)
                otkuda.Copy kuda
            End If
        Next
    End With
    Sheets("ОСНОВНОЙ").Select
End Sub

Option Explicit

Sub копиясосновного()
    Dim otkuda As Range, kuda As Range

    With ThisWorkbook.Worksheets("ВТОРОЙ")
        .Range("A2:G30").ClearContents

        With .Cells
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
            .Borders(xlEdgeLeft).LineStyle = xlNone
            .Borders(xlEdgeTop).LineStyle = xlNone
            .Borders(xlEdgeBottom).LineStyle = xlNone
            .Borders(xlEdgeRight).LineStyle = xlNone
            .Borders(xlInsideVertical).LineStyle = xlNone
            .Borders(xlInsideHorizontal).LineStyle = xlNone
        End With

    End With

    With ThisWorkbook.Worksheets("ПЕРВЫЙ")
        Dim ps As Long, i As Long
        ps = .Range("d" & .Rows.Count).End(xlUp).Row

        For i = 1 To 7

            If .Cells(1, i) <> "" Then
                Set otkuda = .Range(.Cells(2, i), .Cells(ps, i)).SpecialCells(xlVisible)
                Set kuda = ThisWorkbook.Worksheets("ВТОРОЙ").Cells(3, i)
                Selection.Borders(xlDiagonalDown).LineStyle = xlNone
                otkuda.Copy kuda
            End If

        Next

    End With

    Set kuda = Nothing
    Set otkuda = Nothing
End Sub